 Pi ()
 -------------
  Pi,  3.1415926535897932385.

 :
 Function Pi : Real;

 :
Windows, Real, Protected

 :
  ,    ,    
 80x87       .

 :
 Pi.PAS



{Pi.PAS}
---------
{     Pi }

Uses WinCrt;

Begin
 WriteLn(' Pi = ', Pi);
End.
